home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 1997 April / inter@ivo 1997-04.iso / demos / referenc / orsay / dataor / guide.dxr / 00012.ls < prev    next >
Encoding:
Text File  |  1996-06-17  |  312 b   |  14 lines
  1. on fadesoundout
  2.   set volson to the volume of sound 1
  3.   repeat while volson > 20
  4.     put volson
  5.     set the volume of sound 1 to the volume of sound 1 - 2
  6.     set volson to the volume of sound 1
  7.     if the mouseDown then
  8.       quit()
  9.     end if
  10.   end repeat
  11.   sound stop 1
  12.   set the volume of sound 1 to 180
  13. end
  14.